---
title: "Chromatogram Optimization"
output:
flexdashboard::flex_dashboard:
navbar:
- { title: "Home",
href: "../../site/_site/hdl.html",
align: left }
source_code: embed
vertical_layout: scroll
orientation: rows
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = F, warning =F, error = F, message=F)
```
```{r, packages}
pkgs = c('plyr', 'dplyr','stringr','reshape2','tibble', 'plotly', 'DT',
'limma','ggplot2','ggsci', "plotly", "RColorBrewer", "heatmaply")
for(pkg in pkgs){
library(pkg, quietly=TRUE, verbose=FALSE, warn.conflicts=FALSE,
character.only=TRUE)
}
```
```{r}
load("cmg_explor.Rdata")
```
Row {data-height=650}
-------------------------------------
```{r}
df = lghdl_mat %>%
as.data.frame %>%
rownames_to_column("upper") %>%
melt(id.var = "upper", variable.name = "lower")
```
###
```{r}
heatmaply(lghdl_mat,
colors = colorRampPalette(colors = rev(brewer.pal(11,"RdBu")))(100),
Rowv = F,
Colv = F)
```
###
```{r}
plot_ly(x = colnames(lghdl_mat), y = rownames(lghdl_mat), z = lghdl_mat) %>%
add_surface()
```